home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)td.d64 / phoenix.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  138 lines
  1. 5 REM - ADAPTED BY THE COMPUCATS 680 W BEL AIR AVE ABERDEEN MD 21001
  2. 10 PRINT"[147]":POKE53280,6:POKE53281,15
  3. 15 GG=0
  4. 20 PRINTSPC(89)"[169] [223][146]   [223][146]  [169][223][146]  [169]  [146]    [146]"
  5. 22 PRINTTAB(9)"[223][223][146]   [146]  [146] [169][146][169][223][223][146]  [146]    [146][185]"
  6. 24 PRINTTAB(10)"[223][223][146]   [146][169]  [146][162][162] [146]  [146]    [146][184]"
  7. 26 PRINTTAB(9)"[223] [146][169]  [146]    [146]   [146] [223]  [146]    [146]"
  8. 30 PRINTSPC(46)"  [223][146]  [146]  [146] [169] [223][146]    [146]  [223][146]  [146]  [146] [223][146]  [169][146]"
  9. 32 PRINTTAB(6)" [146]  [146]  [146][185] [146]  [146]  [146]  [146][185]   [146][223][223] [146]  [146] [223][223][169][146][169]"
  10. 34 PRINTTAB(6)"  [146][169]  [146][184] [146]  [146]  [146]  [146][184]   [146] [223] [146]  [146]    [146]"
  11. 36 PRINTTAB(6)" [146]    [146]  [146] [223] [146][169]    [146]  [146]   [146]  [146] [169][146][169][223][223][146]"
  12. 38 PRINTSPC(88)"[156]ADAPTED BY THE COMPUCATS"
  13. 40 PRINTSPC(88)"PRESS F1 FOR INSTRUCTIONS"
  14. 42 PRINTSPC(88)"PRESS F7 TO BEGIN"
  15. 44 GETA$:IFA$=""THEN44
  16. 46 IFA$=CHR$(136)THEN100
  17. 48 IFA$=CHR$(133)THEN50
  18. 49 GOTO44
  19. 50 PRINT"[147]":PRINTSPC(88)"[158]**** [144]INSTRUCTIONS [158]****"
  20. 51 PRINTSPC(85)"USE JOYSTICK IN PORT # 2."
  21. 52 PRINTSPC(45)"USE FIRE BUTTON TO SHOOT."
  22. 53 PRINTSPC(45)"SHOOT EGGS AS THEY FALL."
  23. 54 PRINTSPC(45)"SHOOT PHOENIX BIRDS AS THEY RISE."
  24. 56 PRINTSPC(125)"PRESS F1 TO CONTINUE"
  25. 57 GETA$:IFA$=""THEN57
  26. 58 IFA$=CHR$(133)THEN60
  27. 59 GOTO57
  28. 60 PRINT"[147]":PRINTSPC(125)"EGGS WILL DROP FROM THE CLOUDS."
  29. 61 PRINTSPC(45)"IF ONE HITS THE GROUND IT WILL          PRODUCE A PHOENIX BIRD."
  30. 62 PRINTSPC(45)"IF A BIRD RISES TO THE SKY              IT WILL EAT SOME CLOUDS."
  31. 63 PRINTSPC(45)"IF YOU FIRE AND MISS YOU WILL           WIPE OUT A CLOUD."
  32. 64 PRINTSPC(45)"GAME OVER IF YOU TOUCH EGG              OR BIRD OR WHEN CLOUDS"
  33. 65 PRINTTAB(5)"ARE ALMOST GONE OR IF YOU               SHOOT ALL BIRDS."
  34. 68 PRINTSPC(45)"PRESS F1 TO BEGIN"
  35. 70 GETA$:IFA$=""THEN70
  36. 72 IFA$=CHR$(133)THEN100
  37. 75 GOTO70
  38. 100 PRINT"[147]":PRINTSPC(125)"WHAT GAME LEVEL DO YOU WANT"
  39. 105 PRINT:INPUT"     1-4";A$:A=VAL(A$):A=A-1
  40. 110 IFA<0ORA>4THEN100
  41. 115 PRINT"[147]":POKE53280,0:POKE53281,0
  42. 120 CO=54272:G=1945:CL=30:SC=0
  43. 121 POKECO+24,15:POKECO+6,240:POKECO+4,33
  44. 122 IFGG=1THEN130
  45. 125 DIMB(5),D(5)
  46. 130 FORI=1064TO1103:POKEI,90:POKEI+CO,3:NEXT
  47. 135 FORWA=0TOA
  48. 140 FORI=0TOWA:B(I)=1064+INT(RND(1)*39):D(I)=39+INT(RND(1)*3)
  49. 145 NEXTI
  50. 150 FORI=1984TO2023:POKEI,160:POKEI+CO,5:NEXT
  51. 155 POKEG-1,112:POKEG,113:POKEG+1,110
  52. 160 NA=WA+1
  53. 165 FORJ=1TO2
  54. 170 FORI=0TOWA
  55. 175 IFB(I)=0THEN300
  56. 180 POKEB(I),32:IFD(I)>0THEN200
  57. 185 POKEB(I)-1,32:POKEB(I)+1,32:POKEB(I)-40,32:POKEB(I)-79,32:POKEB(I)-81,32
  58. 190 POKEB(I)-41,32:POKEB(I)-39,32:POKEB(I)-80,32
  59. 195 IFD(I)>0ANDPEEK(B(I))<>32THEND(I)=INT(RND(1)*3-41)
  60. 200 B(I)=B(I)+D(I):IFB(I)>1983THEND(I)=INT(RND(1)*3-41):B(I)=B(I)+D(I)
  61. 205 IFD(I)>0ORB(I)>=1104THEN230
  62. 210 IFPEEK(B(I)-80)=32THEN220
  63. 215 POKEB(I)-80,32:CL=CL-1
  64. 220 D(I)=INT(RND(1)*2)+39:B(I)=INT(RND(1)*39)+1064
  65. 230 IFD(I)<0THEN250
  66. 235 POKECO+B(I),7:POKEB(I),81
  67. 240 GOTO300
  68. 250 POKEB(I)+CO,7:POKEB(I)-1+CO,7:POKEB(I)+1+CO,7:POKEB(I)-40+CO,6
  69. 255 POKEB(I)-41+CO,5:POKEB(I)-39+CO,5:POKEB(I)-80+CO,2
  70. 260 POKEB(I)-79+CO,5:POKEB(I)-81+CO,5
  71. 265 POKEB(I),113:POKEB(I)-1,85:POKEB(I)+1,73:POKEB(I)-40,102
  72. 270 POKEB(I)-80,88
  73. 275 ONJGOTO280,290
  74. 280 POKEB(I)-41,105:POKEB(I)-39,95
  75. 285 GOTO300
  76. 290 POKEB(I)-81,95:POKEB(I)-79,105
  77. 300 IFCL<=20THEN1000
  78. 305 JS=15-(PEEK(56320)AND15)
  79. 307 IFJS<>4ANDJS<>8THEN350
  80. 310 POKEG-1,32:POKEG,32:POKEG+1,32
  81. 315 IFJS=4THENG=G-1:GOTO325
  82. 320 IFJS=8THENG=G+1
  83. 325 IFPEEK(G-1)<>32ORPEEK(G)<>32ORPEEK(G+1)<>32THEN1010
  84. 330 IFG<1945THENG=1945
  85. 335 IFG>1981THENG=1981
  86. 340 POKEG-1,112:POKEG,113:POKEG+1,110
  87. 345 POKEG-1+CO,1:POKEG+CO,1:POKEG+1+CO,1
  88. 350 IF(PEEK(56320)AND16)=16THEN400
  89. 355 FORQ=5TO90:POKECO+1,Q:NEXTQ
  90. 360 X=G-40
  91. 365 POKEX+CO,7
  92. 370 IFPEEK(X)<>32THENGOSUB700:GOTO390
  93. 375 POKEX,93
  94. 380 X=X-40:IFX>1064THEN365
  95. 385 X=X+40
  96. 390 FORY=G-40TOXSTEP-40:POKEY,32:NEXT
  97. 395 POKECO+1,0
  98. 400 NEXTI:NEXTJ
  99. 402 IFCL<=20THEN1000
  100. 405 IFNA>0THEN165
  101. 410 NEXTWA
  102. 420 W1=1:GOTO1015
  103. 700 IFPEEK(X)=90THENCL=CL-1:POKEX,87:GOSUB900:RETURN
  104. 705 POKEX+CO,4:POKEX+CO+39,4:POKEX+CO+41,4
  105. 710 POKEX+CO-41,4:POKEX+CO-39,4
  106. 715 POKEX,209:POKEX+39,255:POKEX+41,127
  107. 720 POKEX-41,127:POKEX-39,255
  108. 725 FORY=0TOWA:IFB(Y)<>XORD(Y)<0THEN740
  109. 730 IFRND(1)>.7THENB(Y)=0:NA=NA-1:SC=SC+25:GOSUB800:GOTO740
  110. 735 D(Y)=INT(RND(1)*3-41):GOSUB900:GOTO745
  111. 740 IFB(Y)<>XORD(Y)>0THEN760
  112. 745 SC=SC+50:B(Y)=0:NA=NA-1:GOSUB800
  113. 750 POKEX-1,32:POKEX+1,32:POKEX-40,32:POKEX-41,32:POKEX-39,32
  114. 755 POKEX-80,32:POKEX-79,32:POKEX-81,32
  115. 760 NEXTY
  116. 765 POKEX+39,32:POKEX+41,32:POKEX-41,32:POKEX-39,32
  117. 770 RETURN
  118. 800 FORQ=100TO30STEP-5:POKECO+1,Q:FORT=1TO30:NEXTT:NEXTQ
  119. 805 POKECO+1,0
  120. 810 RETURN
  121. 900 FORQ=50TO150STEP5:POKECO+1,Q:FORT=1TO30:NEXTT:NEXTQ
  122. 905 POKECO+1,0
  123. 910 RETURN
  124. 1000 W1=2
  125. 1005 GOTO1015
  126. 1010 W1=3
  127. 1015 FORT=1TO300:NEXT
  128. 1020 PRINT"[147]"
  129. 1025 PRINTSPC(173)"GAME OVER"
  130. 1030 PRINTSPC(88)"[159]YOUR SCORE IS ";SC
  131. 1035 IFW1=1THENPRINTSPC(88)"[158]YOU STOPPED THE BIRDS"
  132. 1040 IFW1=2THENPRINTSPC(88)"[158]TOO MANY CLOUDS ARE GONE"
  133. 1045 IFW1=3THENPRINTSPC(88)"[158]YOU COLLIDED WITH THE ENEMY"
  134. 1050 PRINTSPC(88)"[156]PRESS F1 TO PLAY AGAIN"
  135. 1055 GETA$:IFA$=""THEN1055
  136. 1060 IFA$=CHR$(133)THENGG=1:GOTO100
  137. 1070 GOTO1055
  138.